﻿Imports DAO
Imports DTO
Public Class PhieuGiaoBUS
    Dim pgDAO As New PhieuGiaoDAO
    Function LayTTPG() As DataTable
        Dim dtpg As New DataTable
        dtpg = pgDAO.LoadPG()
        Return dtpg
    End Function

    Public Sub ThempG(ByVal phieugiao As PhieuGiaoDTO)
        Dim pg As New PhieuGiaoDAO()
        pgDAO.ThemPG(phieugiao)
    End Sub
    Public Shared Function LAYTHEIID(ByVal PG As Integer) As PhieuGiaoDTO
        Dim pgDAO As New PhieuGiaoDAO()
        Return pgDAO.LayTheoID(PG)
    End Function


    Public Shared Function LAYTATCA() As IList
        Dim pgDAO As New PhieuGiaoDAO()
        Return pgDAO.LayTatCa()
    End Function


    Public Shared Function LAYTATCATT() As DataTable
        Dim pgDAO As New PhieuGiaoDAO()
        Return pgDAO.LayTatCaTT()
    End Function

    Public Shared Sub THEM(ByVal PG As PhieuGiaoDTO)
        Dim pgDAO As New PhieuGiaoDAO()
        pgDAO.Them(PG)
    End Sub

    Public Shared Sub CAPNHAP(ByVal PG As PhieuGiaoDTO)
        Dim pgDAO As New PhieuGiaoDAO()
        pgDAO.CapNhap(PG)
    End Sub


    Public Shared Sub XOA(ByVal id As Integer)
        Dim pgDAO As New PhieuGiaoDAO()
        pgDAO.Xoa(id)
    End Sub


End Class